﻿Imports Microsoft.VisualBasic

Public Class BaseEntity
    Private _ID As String = ""
    Public Property ID() As String
        Get
            Return _ID
        End Get
        Set(ByVal value As String)
            _ID = value
        End Set
    End Property
    Public Overrides Function ToString() As String
        Dim buf As String = ", " & Me.ID

        Return buf
    End Function
    Public Overridable Function compareAndGetDiff(ByVal _NewObj As BaseEntity) As String
        Dim buf As String = ""
        Return buf
    End Function
End Class
